Sub Auto_Open()
    Dim button As Integer
    button = MsgBox("Create/update ALEKS tracking worksheets for teachers listed in teachers.xlsx?", vbQuestion + vbYesNo, Title)
    If button = vbYes Then
        Application.Run "'ALEKS tracking worksheet.xlsm'!CreateWorksheets"
    End If
End Sub
